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балет. 


Very soon, I will be operating a BBS from my house. 
Although this BBS is primarily for IBM users, I will also 
have a separate conference section for Macintosh users, 
and em willing to have a third conference section for 


Timex and L.I.S.T. 


The name of this BBS is "The Late Night BBS" (T.L.N. 


BBS), and, hence its name, wil] be operating everyday from 
10:00pm to 7:00am ET. The BBS is located in Coram, which 
is in the Western Suffolk calling area. 

If you are interested in having a Timex/L.I.S.T. 


Section on this board, please let me know. 


Sincerely, 


/ 


еру ИИИИ ЄЄИ ПЕТИЄОКССГЕ 


Keith Skapinski 


Ph: 516-732-1825 


, 
(еі «Й Teh tay 


More About This BBS 


This BBS will have a general (main) section, plus four 
conferences. They are ІВМ, Macintosh, Timex/L.I.S.T., and 
classified ads. There will be download directories for the 
IBM, Macintosh, and Timex. 

The Timex conference section will be capable of having 
8 news file, bulletins, and a large message base. For 
those unfamiliar with this, the news file is displayed 
when a user enters the conference from the main section 
and usually contains new news or information and is 
updated fairly often. The bulletins are usually not 
changed very often. There will also be a message base 
which can be used for asking and answering questions, 
carrying on conversations, or sending electronic mail to 
other users. 

Of course, it would not be feasible for me to set up 
the news files and bulletin files for the Timex 
conference, so a volunteer from L.I.S.T. would be needed. 
I would need a typed news file and any bulletins which you 
wan! on the BBS. I will enter them into the BBS. Since 
there is often new news, you can either upload an ASCII 
news file to me or send me the text in the mail. Please 
try to limit new news files to no more than one or two a 
month and update bulletins only when necessary. 

If you are interested or having any questions, please 


call me at 516-732-1825. 


py S.M.U.6. Presents 
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MILWAUKEE WISCONSIN 


June 2 & 3 /Banquet Friday Night June 1 
SEMINARS, DOOR PRIZES, SWAP SHOP, 
SOFTWARE, PERIPHERALS, HARDWARE, 

AND LOTS OF OTHER STUFF 


Location 
WAUKESHA HOLIDAY INN (414) 786-0460 


Hwy 18 & I94 Waukesha, WI 53186 


There will be a SNUG meeting Saturday Night June 2, 1990 
Ticket Information: 


in advance at the door 
One day : $4.00 $ 5.00 
Bothdays : $7.00 $ 9.00 
Banquet : $16.00 $16.00 Limited seating 
Table : 825.00 (incld. 2 day badge) $25.00 Limited table space 


Tables are 6 feet by 30 inches 


For MORE INFORMATION contact 


Bill Heberlein Neal Schultz 
5052 N. 91st Street Or call 7 - 10pm 
Milwaukee, WI 53225 (414) 353-4522 


for RESERVATIONS mail to: 


ERA че Expo Reservations 
i P.O. Box 101 
Butler, WI 53007 
ce Detach and Mail 


Name Phone( | ) 

Address 

City State Zip 
Please reserve one day badge @ $ 4.00 each = $ 
Please reserve two day badges @ $7.00 each = $ 
Please reserve Banquet tickets @ $16.00 each = 8 
Please reserve 6" x 30" tables @ $25.00 each = $ 


I have included a check/money order for total =$ 


TRY THIS TRY THIS TRY THIS 


FIRSTLOADER--FROM ZX/TS TO 2968 

Syntax commissioned a custom 
program, written by David Ornstein, 
to convert your existing programs 
for the 2068 or 48K Spectrums. 

This program translates input 
bytes from ZX/TS tapes to an equal 
number of output bytes in your 2068 
that you must edit, and then save. 
Codes & program control structures 
differ in the two designs, making 
functionally identical programs 
use different numbers of bytes. 

Create the program in two 
parts--the translation table shown 
here and the executable portion. 


4 CASA CA Mem 


попа пу ha pà po po por 


Direct tables, such as this, 
consist of an address, derived from 
the input code, containing an entry 
that equals a desired output code. 
Our table address consists of the 
CODE of the ZX/TS character +44000. 
Entries consist of 2068 codes to 
produce the character, command, or 
function. If no one corresponding 
code exists, we pick a substitute 
to hold the space. Then we edit 
the translated program as needed. 

Use the table shown to produce 
the translator as Syntax tested it. 
We suggest you fill the table area 
with code 127 as you begin. That 
way, listing the table produces (C) 
symbols if you miss any entries. 

You can modify the translation 
table to substitute any byte. Add 
44000 to the ZX/TS character code, 
then POKE that address in your 24068 
with the code you want the program 
to contain. Codes below 32 trigger 
errors in the display. 

For example, say you want SLOW 
changed to REM. You take 228, the 
ZX/TS code for SLOW, add 44000, and 
POKE 44228,234--the 2068 REM code. 

You can enter the executable 
code in whatever form you find 
convenient--we've provided both hex 
and decimal listings--but only the 
assembler listing is annotated. 

Save the 2068 program using 
SAVE"FIRSTLOADR"CODE 44000,1258. 
Make several copies & VERIFY each. 

To use the tape, CLEAR 43999, 
then LOAD"FIRSTLOADR"CODE (enter). 
When the 2068 displays 0 OK, 92:1 
Position your ZX/TS tape in the 5- 
Second quiet spot. Activate the 
loader by typing RAND USR 45000, 
and observe the red and black 
stripes in the border area. Then 
start the ZX/TS tape and observe 
the stripes again as they change 
width, indicating ones and zeros in 
the incoming data. 

You will need a lower volume 
setting than if you were loading to 
a ZX/TS from the same recorder. 

You may find a Winky board eases 
loading. In some cases а 0.2 uF 
capacitor in series with the center 


ear cord and a lk 

PLE the 2068 ear jack 
4 wider range of volume 

for the 7Х/Т5 tapes. 
n the converter finds the 

VARS area ОП the tape it 
р m load to convert. At 
your 2068 will display 
LIST your proram and. 
If your translation 
to a 2068 tape 

If the screen 
or you get no 


conductor 
resistor 
ermits 
settings 
wae 
dof t 
Switches fro 
completion, 
e One Moe inks 
ok £0 4 
ae OK, save i: 
before rid ae Gage: 
но ог LOADing of iie ae 
tape stops early, type NEW, | 
a different volume setting. 
А Edit the 2068 version to 
nt for differences in 2. 
. Of course you сап а 
2 е functions to the 2068 
program thus created. 
| Not all keywords translate 
sensibly--check your output list 
for the following: 


accou 


Keyword Action 

CHRS Change char code 

CODE Change compared value 
FAST Delete SpacE 

PAUSE 0 Delete or use PAUSE 1 
PEEK Change address 

PLOT Reprogram 

POKE Change address, data 
UNPLOT Reprogram SpacE 

USR Change address 

SCROLL Delete SpacE or use PRINT 
SLOW Delete SpacE 

Snift Q Change SpacE to """ 


Also, the program removes all ZX/TS 
inverse characters, substituting 
normal characters, and translates 
tne half-tone character graphics to 
solid blacks of the same shape. 
After editing, save the latest 
updated and enhanced program for 
use with the 2068, 
ЕЕ modifying the translation 
16, you can substitute user- 
ME graphics as you convert. 
Ч сап purchase thi 

ME tape for $19.95 ppd on p 
Acti. MEER. x 711 Southern 
£d Y: Quincy, MA 02169. Call 

/173-1187 to use VISA or МС. 


This table shows addresses to 
POKE, in steps of five, with the 
values reading left-to-right for 
the 5 successive locations.  POKE 


them manually or write a loop to 

advance the address automatically. 
These decimal codes correspond to 
the 


hexadecimal assembly listing on 
following pages. 


РУ 
бег 
1 
= 
= 


= - - 
t =: = - 


«Ду краси си е 


па mes ПО 


E E LO e 


following pages you'll 
find FIRSTLOADER code, assembled to 
location 45000. This excludes the 
translation table. Read columns as 
follows: hex address, hex code for 
instruction, assembler line number 
(ignore it), assembler label (for 
human use), then a 280 instruction 
mnemonic or assembler pseudo- 


operator, operand mnemonics, and a 
semicolon followed by comments. 


CD3CBO 


ср59во 


110C00 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 


00400 


00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 


INCASE 


ERR3 
E1LINE 


E2LINE 
LOADER 


LL36 


INBYTE 
LL3 
LL32 


1138 


114 
115 


XLATE CRO SERS 


49172; ZX/TS E-LINE + 32K 

49173 

HL,49161; ZX/TS VERSN + 32K 

DE,12 | 

HL,DE ; SKIP 12 BYTES HL PT 49173 
(HL) ,OOFEH; LOAD AT LEAST 256 BYTES 
A 

HL ,DE 

INBYTE ; GET BYTE INC 

(HL),C ; STORE THE ZX/TS BYTE 

А,Н 


EFIX ; IF HL=E2LINE ADD 128 TO HI 
ENDBYT ; BYTE (IND HL). LAST BYTE? 
BORDER ; FLIP COLOR 


NC,LL7 ; IF BREAK IS PRESSED 


C,LL38 ; IF HAVE A SIGNAL 


B028 
B029 
вогв 
во2р 
ВОЉЕ 
ВОЉЕ 
B030 
B033 
B034 
B036 
B037 
B038 
B039 
B03A 
В03В 
B03C 
ВОЗЕ 
8041 
8043 
B044 
B045 
B047 
B049 
B04A 
B04B 
ВОЗЕ 
ВОДЕ 
B050 
B051 
B052 
B053 
B054 
B055 
B057 
B058 
B059 
BO5C 
B05D 
ВОЂЕ 
B060 
B063 
B065 
B068 
B069 
BO6B 
BO6D 
BO6E 
B070 
B071 
B073 
B075 
B077 
B07A 
B07B 


7A 


00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
07020 
07030 
01040 
01050 
01060 
01070 
01080 
01090 


| 01100 


01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 


LL6 


ENDBYT 


LL7 


FNAME 


BORDER 


EFIX 


XLATE 
LXL1 


LINE 


LLIN1 


LLST. 
c Eee? 


NC,LL3 
HL ; WAS THAT THE LAST BYTE? 


DE,HL 
HL, (E1LINE); IS HL PAST IND E1LINE? 


BC ; GO BACK TO MAIN ROUTINE 


INBYTE ; LOOK FOR 1ST INVERSE CHAR 


Z,FNAME; KEEP LOOKING 
; NOW START LOADING ZX CODE 


A,B ; FLIP BORDER COLOR 2 OR 0 
2 

(OOFEH) ,A 

B,A 


DE,E2LINE; DID I JUST LOAD TO E2LINE 


H ; COMPARE HI BYTE 


L |; COMPARE LO BYTE 


A,128 ; ADD 32K 


HL, 49277 
A, (HL) 
118 

Z 

LINE 
тура 
DE,4 
HL,DE 
A,007FH ; TEST BREAK ON 2068 
A,(00FEH); GET CHAR IN ACCUM 


1ST BYTE OF 1ST LINE # 

AT 16509+32K 
IS ІТ 1ST МІ. IN ZX D-FILE 
IF SO, YOU'RE DONE 


M» Se se Ne 


SKIP LINE # & LENGTH 


~ 


NC,LL7 ; EXIT IF BREAK PRESSED 
А, (НІ) ; GET BYTE 

126 ; CHECK FOR ZX/TS SLUG 
NZ,LLIN2; GET CODE FROM TABLE 
(HL),14 ; SUBST 2068 SLUG 

DE,6 ; SKIP SLUG + 5 BYTES 
HL,DE 

LLIN1 ; DO IT AGAIN 


во7р E5 01190 LLIN2 PUSH 
BO7E 11EOAB ^ 01200 LD 
B081 2600 01210 LD 
B083 6F 01220 LD 
В084 19 01230 ADD 
B085 7E 01240 LD 
B086 Е1 01250 POP 
B087 77 01260 LD 
в088 23 01270 INC 
B089 FEOD 01280 CP 
B08B 20DC 01290 JR 
BO8D C9 01300 RET 
ВОВЕ 117DCO 01310 MAKPRG LD 
B091 A7 01320 AND 
B092 Ер52 01330 SBC 
B094 44 01340 LD 
B095 4D 01350 LD 
B096 C5 01360 PUSH 
B097 2A4B5C 01370 LD 
B09A 2B 01380 DEC 
B09B ED5B535C 01390 LD 
ВОЗЕ D5 01400 PUSH 
BOAO CDBB12 01410 CALL 
B0A3 D] 01420 POP 
BOA4 ED53535C 01430 LD 
BOA8 C1 01440 POP 
BOAQ 23 01450 INC 
BOAA 23 01460 INC 
BOAB EB 01470 EX 
ВОАС 217DCO 01480 LD 
ВОАР EDBO · 01490 LDIR 
BOB1 C9 01500 RET 


BORDER 8044 00840 00400 
E1LINE C014 00220 00710 
E2LINE C015 00230 00890 
EFIX В04В 00890 00350 
ENDBYT BO2E 00690 00360 
ERR3 AFDC 00200 00340 
FNAME  B03C 00800 00110 00820 
INBYTE AFFB 00380 00300 00800 
INCASE AFDO 00140 00160 
LINE B065 01060 01040 
LL3 AFFD 00390 00640 00670 
LL32 AFFF 00400 00490 


Only one change will make this 
program work with a 48K Spectrum as 
well. At BØAØH (45216 decimal), we 
call а ROM routine located at 4795 
in the Т52068 and at 5717 in the 
Spectrum. These routines create an 
empty space, but you must fill it. 


HL ; STORE THE BYTE ADDRESS 
DE,44000; TABLE START ADDRESS 


H,0 ; PUT ZX/TS CHAR CODE IN HL 
Lh 
HL,DE ; ADDRESS OF BYTE IN TABLE 


A, (HL) ; GET BYTE FROM TABLE TO A 
, 


HL RECALL BYTE ADDRESS 

(HL) ,A PUT NEW CODE IN OLD ADDRESS 
HL 

13 ; CHECK FOR 2068 NL 


NZ,LLIN1; NO, DO IT AGAIN 

; FINISHED THAT LINE 
DE,49277; APPEND PROG TO 2068 CONTENT 
A 


HL, DE ; HL PT 1ST BYTE OF D-FILE 
B,H ; BC = NO. BYTES IN PROGRAM 
CL 

BC ; SAVE SIZE OF PROG 


HL, (23627); ADDRESS OF 2068 VARS 
HL 
DE, (23635); ADDR OF 2068 BASIC PROG 


DE ; SAVE PROG SYSVAR 
4795 ; CALL ROM INSERT-USE 5717 ON 
DE ; SPECT-RESTORE PROG SYSVAR 
(23635) ,DE 
BC ; BYTE COUNT OF PROG 
HL 
HL 
DE,HL ; DE=DATA DESTINATION 
HL,49277; START OF STUFF TO MOVE 

; BLOCK MOVE 


LL36 AFEA 00300 00370 
LL38 В010 00500 00480 
LL4 B013 00520 00590 
LL5 8015 00530 00600 
LL6 B028 00650 00620 
117 ВОЗА 00780 00440 01110 
LLIN1 8069 01080 01180 01290 
LLIN2 BO7D 01190 01140 
LOADER AFDE 00240 00120 
LXL1 В05С 01010 01050 
MAKPRG BO8E 01310 00180 
XLATE 8059 01000 00170 


Most of this code is self- 
contained. Only the routine XLATE, 
located at 45145, passes a value to 
the code for MAKPRG. If you modify 
code, restore the value held in HL 
on return from address 45151 prior 
to calling MAKPRG. 


“GER 15 а menu-driven program for 
NEESMON 16K to show 2 text in giant letters. 


m Є" пи has nine options: 


M . 
- ntirely Basic program uses a 


e. 
Imost € prog 
Ms оси routine held in line 0. The 


ode is only 576 bytes long. The text 
unshifted characters, inverse — 


shifted — function — and graphics. 


machin 
machine с 
may contain 


The function characters plus the shifted 
character H represent the lower case charac- 
ters. The shifted characters A, 5, р, F, С, У, 
E, R, T, Y, 2, 3 and 4 are reserved for user 
defined graphics — UDGs. You can define 
eg., the character “1? and its inverse, which 
do not belong te the standard character set. 
When you don't like the lower case character 


Hexdump. 
16514: 
16522: 
16530:: 
16538: 
16546: 
16554: 
16562: 
16570: 
16578: 
16566: 
16594: 
16682: 
16618: 
15618: 
16626: 
16534: 
16642: 
16650: 
16658: 
16666: 
16674: 
16682: F 
16690: а 
15698: 5 


16714: 


16722: 


IG) 


pas poe eh E wed I I E > 
C Oi gi Ста С ov ai ai gi 
Ur C -J КУ па CI OIC 

E C co c mye 


7M КУ КУ ЕУ БУКУ У | 


ододогооооооовоо 
SFOD218n40221640 
CD1C11234E234623 
CSESCDBB@22CE1C1 
COCSESTEFE40280R 
FE412806FE422802 
180306R650S22140 
CBBFOBOB18005F21 
с0001810к0382140 
ЕЕСО380511783Е18 
0311001E19CDER4O 
Ei123C10D20BR78FE 
Oo28n7050EQ018BO 
E51182480D5010800 
EDBOSRH2140CB7F28 
OFCB772800B118240 
O6081AZF121310FA 
GOEDSOEOSC506012A 
OC48112200ED5211 
210019810FRC1227B 
40112100190D11ACB 
171213D528033E 
7T710EDD1CS5O08501 
: газа4аасва5гдЕз 
16706: CD5&641CD5D41C110 
EFCiOD118240D520 
BaD1iEica2n7B4023 
233bE08545DZ23011F 
OOEDBOZBE7TOZS3233D 
CS18FaO21n00C25B7C 
BS2o0FBCaO0SOSOO024 
ра0до000000000000 
SE4Q04Q0403EOO00000 
TCA2427040400505 
2505950525050008 
әгәзозогозооов2д24 


set, you are also able to alter this. 

In total you have 26 + 13 UDG’s. You 
can't alter the "shifted" character Q because 
this character is used in string input. When 
you are not familiar with UDG's, read the 
article in Your Computer April 1984. 

The data of the standard ZX-81 character 
set begin in the Rom at address $1E00 (7680 
dec.) and end at address SIFFF (8191 dec.) 
Only the data of the characters with code 0-63 
are in the Rom. 

The data of the UDGs begin at address 
16760; it starts with the data of the "shifted" 
character Q — code 192. Then the data of the 
* function" characters with code 193-215, 
followed by the "shifted" characters with 
code 216-229. The data of the “function” 
characters M, B and T with code 64-66 are 
placed after the "shifted" characters. 

You have the option to alter the fill 
character of the giant letter, the speed and the 
top line number. The fill character can be a 
*unshifted" character, a inverse — ог ai 


LI OG Cane 
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Ф Cn Cn © FO Fe (T Ci 62 Ts 


gi Ста oi o en cuc oan eau au 
Cn Co Co Co co 0) Co co ci o» 
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(o F fd dT 


"аса £e C 


f) по р С 62 FU 
rj cam б 


са Са по C2 tC uD Cl 


ьо 
q Oi 


= 


3 
4 


gigi Ста on qi coi СТ СО СТО 


ip ES E B E I B E i 
(DID ID D (C (D (C Ма б) Co Co 


a 
n) дил > 


по 4 Cn CD бо ПР О C 


Gi 


e 
1 
o 
4 
о 
о 


екенін 
-J^J Qt Qi Ot 
€) C) D ui i 


Ca i t UD (D 10 UT OT OT 
р 


p: CHG i Ore P O GC Os. 


gua 


non n ou non How How Ho wow How non ow ни uowow won nou gw w Ho ng 


(96) 01 C2 C) ~ O1 Ot 
ои С out 
те 
ES EN ES ES ES LS LO Do Ba) 
(96099600000 
Q9 -J m in d OWE 
по £ quei O Го P- OC С) 


ea 
43 
Е4 
a4 
са 
сә 
са 
23 
EG 
21 


mmn 


2222214030050009 
осәсгәгесәосоФФЕО 
ЕдәоогеогоосоғӘағо 
ЕОТЕТЕТЕ?ЕФОО5О5 
0505050505050505 
505050505050000 
ОбОб000000к00000 
0505050505050505 
esas 
1010100010000505 
0505850205050024 
028242424204380505 
0505050505050505 
0505050505050010 
7C1010102E000040 
407С42427с0200000 
7549494949900505 


graphic. Address 16690 holds the code. 
PEEK(16751)/2-1 

gives you the speed on a scale 0-9; 0 is fast, 9 
is slow. 5 is the most "readable" speed. The 
top line number can vary for option 1 from 
1-17, for option 2 from 1-9 and for option 3 
the top line number will be 1. The program 
checks for invalid values. 

There are different ways to save text. First 
you can run the program and enter your text 
in option 7: 

"TEXT" N/L 2$ 
holds your text. Returning to option 7 and 
typing new text the old text is rubbed out. To 
prevent the loss of the old string variable 25, 
you have to break out during input mode by 
(continued on next page) 
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(continued from previous page) 
rubbing out the first quote and then press 
“shifted” А N/L. Then you type: 

LET A$ = 25 N/L 
and the old text is saved in the variables area. 
You return to the Basic program by typing: 

GOTO O ми. 

Do not use the command Run because this 
command will also clear the variables area, 
and that is what you don't want! 

Second: you can break out during input 
mode to enter different string variables. You 
can use the string variables A$-X$ and sub- 
scripted string variables with no limitations. 


You can rub out the quotes 


Do not use Y$ and 25 because the program 
uses these string variables. You can type eg.: 
LET AS = "TEXT" NIL, LET B$ = "TEXT" 
NIL, DIM А5(10,10) N/L, LET AS(1) = "TEXT" 

N/L 

You return to the menu by typing: 
—GOTO O N/L 

When you return to option 7, you can rub 
out the quotes and type eg.: 

AS + BS NIL 
strings which you have entered before. Z$ 
holds then 
А5+ В$ 
You can also type: Text, jump over the quote 
and type: 


Basic program. 


РЕМ %5%%5%%---%%>%>%%--552-52- 
= REM зіСс: FEAaNS ZIJM > 
З РЕМ +  МЕКІМОНСЕВ - 
4 REM %%%%%%<%%%%%%%5%%5%%%5-%-5 
20 5109 
ЗО FRINT " MENU"... 
42 PRINT "А CHARACTER SIZE 2:2 
SO PRINT "В CHARACTER SIZE 17: 
16".,. 
60 FRINT "E CHARACTER SIZE 12: 
= ЖАР? 
70 PRINT "М USER DEFINED GRAPH 
IC",., 
SQ PRINT FILL CHARACTER", 
90 FRINT ЗРЕЕС"“.,., 
100 PRINT INPUT TEXT",.,. 
110 PRINT TOP LINE NUMBER"... 
120 PRINT "B ЗАМЕ" 
150 FRINT АТ 21.0: 
140 DIM 751) 
150 INPUT Y$ 
160 IF v$:"1" CR ¥$2"9" THEN GO 
TO 150 
170 CLS 
150 IF v$-'"2" THEN GOTO 3000 
190 GOSUB WAL :5+1000 
200 CLS 
сото 
FORE .1 
РОКЕ 33 
РОКЕ 3 
LET 5524 
FET 


39 THEN POKE 1 


uo D 
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. Ufo IDI0 
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4000 PEINT j 
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4010 PRINT "FOR 9 
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SHOE PRT No es 
4930 PRINT ^ 
OU сам ALSO" 
4040 PRINT " 
CHARACTERS 
2050 РБІМТ 
UNCT ION" 


THE ""F 
CHR 


+AS$N/L 
Z holds then 
"TEXT" + AS 
When you want to save on tape the string 


variables or your UDGs, option 9 gives you: 


the opportunity. After typing: 9 N/L during 
menu mode, the program waits for pressing a 
key. It gives you the time to set up the tape 
recorder. 

When you want to break out the machine 
code routine during option 1-3, just press a 
key a while. It is advisable not to use the 
“break” key because then you also break out 
the Basic program. Then it is a habit to type: 
Run N/L, but then you will clear the variables 


Hexloader. 


REM HEX LOACER 
PRINT “START RDDRESS" 
INPUT 5 
CRINT "FINISH RCODRESS" 
INFUT F 
FOR мага TO F ЭТЕР В 
LET Тай 
PRINT М)" - 7; 
INFUT AS 
У PRINT 4%; ° = 7: 
INPUT TOT 
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RINT "ERROR - 
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4 

417 

413 в 
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4150 LET с 

4200 FFI e 
SOURRE.THE' ,... 

4210 PRINT “EMPTY STRING FOR Я 5 
FACE: а СОТ",,, 
4229 PRINT “WILL MARK THE PLACE. 
INPUT Ә AT" > 
4250 CET THE BEGINNING OF AL 
INE WILL "., 

4240 ЕРІМТ "FLaCE 8 SFACES IN TH 
E LINE." 
4250 FO 
4250 ЕР 
4270 МЕХ 

4220 

+290 

4500 
4310 
4320 -i 
4350 
2510 " THEN ЕРІМ 
4250 " THEN 

4220 
43869 IF T тата: 
4370 25 Үз " 
4360 IF Y 
4399 IF p 

сото + 
4490 FF 75; 
4410 МЕ: 

4420 FO! EET 

2130 FR 
1440 NE 

zo Е 
Е “yOu CAN FILL THE GIA 


i A CHARACTER CF 


ТНЕ_РРЕЗЕМТ FILL CAR 
:". CARS PEEK 16690:7.7.. 
RINT “THE EMPTY STRING NIL 


m 
"nne 


PRINT "THE СНАРАСТ 


ЕР. 
PRINT AT 21,0: = 


se 

50 

50: THEN RETURN 

50 AND ҮШ OR 75: 
"~" ого 

51 Ә.СОСЕ vs 

51 

ee CAN ALTER THE ЗР 
БЕС 

521 ESENT SPEED ON A 5 
САШЕ 0-9 :"|РЕЕК 18?51»;2-1,"7."7... 
6020 PRINT "THE EMPTY STRING 01. 
і NOT ALTER"... 

2030 PRINT “THE NUMBER." 

доза PRINT AT 21.92.7 


| 


area. Use always the command Goto 0 

you will get the menu again with the variable 

still present. 3 
Before you can enter the machine code, yo 


"have to make a line with a Rem containing a 


S d ер To create this Rem first ња, 
ine 1 with a Rem containing 91 
the number with ore Check 
PEEK(16511) + PEEK(16512) x 256 

The number must be 93: 

REM + 91 dots + N/L 
Then using the Edit alter the line number w 
that you become 6 lines with 91 dots. Th 
type: = 
РОКЕ 16514,118 N/L 
РОКЕ 16515,118 N/L 
РОКЕ 16510,0 N/L 
POKE 16511,66 N/L 
and you have created line 0 with a Rem 
containing 567 bytes. - 

PEEK(16514 + 576) . 
must be 118, check this! Then enter the Basic 
program hexload. The startaddress is 165]4i 
the endaddress 17089. Save the program og 
tape after entering the hexadecimal number 
Then enter: 

LET Z$ = "TEXT" N/L, LET L=USR 16524: 
N/L : 

and the program should run. Pressing a key g 
while will bring you back to Basic. When the 
program doesn’t work, check the addresses 
16514-17089. E 


5 " THEN RETURN 
6080 IF vs:"Q" GR YS5"9" THEN so 


6090 POKE 15721 (VAL У+1) +2 
61 . 


где o 

eie PRINT “yOu. CAN ENTER YOUR T 
(T.Z$ IS" 
7020 PRINT TO STORE THE IN 
PUT.YOU CRhHN',,, 

gece PRINT “INPUT CHARACTERS. INV 
RSE -," 


"n 


7010 PRINT "GRAPHICS -,““ SHIFTED 
en 2 амб”,,, 


7850 PRINT """FJONCTION"" -. THE " 
"FUNCTION""", 
7050 PRINT 


CTERS REPRESENT 
THE LOUER',,. 
7070 PRINT “CREE CHARRCTERS.EXCE 
PTION: THE"... 
7030 PRINT ' iFTE 


TED"" KEY H RE 
PRESENT LOUER' 
7090 PRINT " V.THE ""SHIFTED 
өң KEYS R.S,.", 
7100 PRINT "D,F.G.J.E,R,T.Y.2,.? 
ANC 4 ARE"... 
7110 PRINT "USED FOR UDG.SEE CPT 


N 4.",,. 
PRINT 
IF INKEYSz'"" THEN GOTO 7120 
CLS 
PRINT AT 21. 
INPUT 25 
RETURN 
FRINT “YOU CAN CHOOSE THE ? 
OF THE". 
8010 PRINT “ТЕЗТ ON THE SCREEN. 
FOR OPTION ",, 
8020 PRINT "1 THE TOP LINE CAN У 
ARY 1-17.”,,, 
S030 PRINT “FOR OPTION 2 THE ТОР 
LINE CAN’ б 
8040 PRINT 1-9.FOR OPTION 
3 THE TOP’ 
WILL BE 1.THE ? 
NUMBER: ";PEEK 1 
^O STRING"... 
8070 PRINT NOT RLTER THE N 
UMBER," 
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3080 PRINT AT 21.0; ERHENBCRESUN 
DIM 812) 
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3060 PRINT 
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THEN RETURN: 
URL 75217 TH 


20 
40 


10 Оз Co M Gy Qi 00 0) 
I) P О 
e 


9020 IF INKEY$="" THEN GOTO 9020 
3030 CLs 

9048 SAVE “NEWSMONGER” 

9850 GOTO ә 


March 22, 1990 


Mr. Fred Stern 
214 Roberts Street 
Holbrook, NY 11741 


Dear Fred, 


The Woodbury Nursing Home, 8533 Jericho Turnpike, NY, has agreed 
to allow us to hold our April 22nd LIST meeting in one of their 
Recreation rooms. In fact, they will provide coffee for our group 
and stated that we can hold monthly meetings at their facility if 
we would like. 


Ms. Kim Gidia (pronounced Joya) is responsible for recreational 
activities for their residents and feels that computers may have 
a theraputic value for their residents and has asked us for help 
to guide them in this endeavor. Bob Malloy, Fred Stern and myself 
will provide computers and provide a demonstration for Ms. Gidia. 


Please ATTEND this meeting! Hugo is looking forward to seeing 
each of you - and perhaps some of you can provide our host with 
some worthwhile suggestions for them in the use of computers or 
any other vehicle towards aiding their residents. 


LIST Meeting - Sunday, April 22nd, 1990 - Woodbury Nursing Home, 
8533 Jericho Turnpike, NY. Tel - 516-692-4100. 


The best way there is to take any of the major parkways (LIE, No. 
State or So. State pkwys) to the Seaford/Oyster Bay Expressway 
heading north and exit at 25A East (Jericho Tpk), for 
approximately 1.7 miles on Jericho Tpk. When you pass Woodbury 
Common, the location will be only а few lOths of a mile further, 
on the left-hand side of the road. There is ample parking at the 
rear of the Woodbury Nursing Home. 


If you require any additional information, contact me by 
telephone: 516-541-2271. 


Fred, perhaps we could send Ms. Gidia a copy of this LIST 
newsletter. 


